home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 17 / AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso / Rexx / Example.rexx < prev    next >
OS/2 REXX Batch file  |  1998-12-04  |  339b  |  24 lines
  1. /* $VER: Test ViewTool's ARexx Port
  2.  */
  3.  
  4. OPTIONS RESULTS
  5.  
  6. ADDRESS 'ViewToolRexx'
  7.  
  8. LOADIMAGE 'X:Clown.pic'
  9. res1 = RC     
  10. res2 = RESULT
  11.                     
  12. IF res1 = 0 THEN
  13.     DO
  14.         SAY 'Image loaded successfully'
  15.         CLOSEIMAGE res2
  16.     END
  17. ELSE
  18.     DO
  19.         SAY 'result  =' res1
  20.         SAY 'result2 =' res2
  21.     END
  22.  
  23. EXIT(0)
  24.